home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / brutil.arc / OPTMAC.LIB < prev    next >
Encoding:
Text File  |  1988-04-13  |  256 b   |  21 lines
  1. GENOP1    MACRO    P1,P2
  2. P1&OPT EQU     P2
  3.     ENDM
  4. GENOPT    MACRO    P1
  5. $1    =    1
  6.     IRPC    P0,<P1>
  7.     GENOP1    P0,%$1
  8. $1    =    $1 SHL 1
  9.     ENDM
  10.     ENDM
  11. TESTOP    MACRO    P1,P2
  12.     IRPC    P0,<P1>
  13.     MOV    AH,P0&&OPT
  14.     CMP    AL,'&P0'
  15.     JZ    P2
  16.     ENDM
  17.     ENDM
  18.     P0,%$1
  19. $1    =    $1 SHL 1
  20.     ENDM
  21.     END